home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / hyperala.sit / HyperAlarm Help 1.1 / stack.txt < prev   
Text File  |  1988-11-14  |  4KB  |  113 lines
  1. -- stack: in.1
  2. -- format: 8 (HyperCard 1)
  3. -- flags: 0x0 (none)
  4. -- protect password hash: 1347775074
  5. -- maximum user level: 5 (scripting)
  6. -- window: Rect(x1=0, y1=0, x2=0, y2=0)
  7. -- screen: Rect(x1=0, y1=0, x2=0, y2=0)
  8. -- card dimensions: w=0 h=0
  9. -- scroll: x=0 y=0
  10. -- background count: 7
  11. -- first background id: 2678
  12. -- card count: 17
  13. -- first card id: 2914
  14. -- list block id: 9406
  15. -- print block id: 3413
  16. -- font table block id: 0
  17. -- style table block id: 0
  18. -- free block count: 2
  19. -- free size: 1792 bytes
  20. -- total size: 40960 bytes
  21. -- stack block size: 3584 bytes
  22. -- created by hypercard version: 0x00000000
  23. -- compacted by hypercard version: 0x00000000
  24. -- modified by hypercard version: 0x00000000
  25. -- opened by hypercard version: 0x01208000
  26. -- patterns[0]: 0x0000000000000000
  27. -- patterns[1]: 0x0000220000002200
  28. -- patterns[2]: 0x8800220088002200
  29. -- patterns[3]: 0xCC003300CC003300
  30. -- patterns[4]: 0xCC883322CC883322
  31. -- patterns[5]: 0xFF00FF00FF00FF00
  32. -- patterns[6]: 0xEECCBB33EECCBB33
  33. -- patterns[7]: 0xFFCCFF33FFCCFF33
  34. -- patterns[8]: 0xFFEEFFBBFFEEFFBB
  35. -- patterns[9]: 0xFFFFFFBBFFFFFFBB
  36. -- patterns[10]: 0x8010022001084004
  37. -- patterns[11]: 0xFFFFFFFFFFFFFFFF
  38. -- patterns[12]: 0x8822882288228822
  39. -- patterns[13]: 0x1122448811224488
  40. -- patterns[14]: 0xC4800C6843023026
  41. -- patterns[15]: 0xB130031BD8C00C8D
  42. -- patterns[16]: 0xAA00AA00AA00AA00
  43. -- patterns[17]: 0x8822552288225522
  44. -- patterns[18]: 0x8855225588552255
  45. -- patterns[19]: 0x77DD77DD77DD77DD
  46. -- patterns[20]: 0x8000000000000000
  47. -- patterns[21]: 0xAA55AA55AA55AA55
  48. -- patterns[22]: 0x5555555555555555
  49. -- patterns[23]: 0x8244394482010101
  50. -- patterns[24]: 0x8814224188412214
  51. -- patterns[25]: 0x8080413E080814E3
  52. -- patterns[26]: 0x22048C7422179810
  53. -- patterns[27]: 0xBE808808EB088880
  54. -- patterns[28]: 0x25C8328964244C92
  55. -- patterns[29]: 0xA29C41BE2AC914EB
  56. -- patterns[30]: 0x40A00000040A0000
  57. -- patterns[31]: 0x8040200002040800
  58. -- patterns[32]: 0xAA00800088008000
  59. -- patterns[33]: 0xFF80808080808080
  60. -- patterns[34]: 0x081C22C180010204
  61. -- patterns[35]: 0xFF808080FF080808
  62. -- patterns[36]: 0xF87422478F172271
  63. -- patterns[37]: 0xBF00BFBFB0B0B0B0
  64. -- patterns[38]: 0xFF7FBE5DA2418000
  65. -- patterns[39]: 0xFAF5FAF5A050A050
  66. -- checksum: 0x0
  67. ----- HyperTalk script -----
  68. on openStack
  69.   hide message box
  70.   hide menuBar
  71. end openStack
  72.  
  73. -- READ ALL INSTUCTIONS BEFORE ATTEMPTING TO COPY !!!
  74. -- Select the text of the "on idle" routine below by clicking in front
  75. -- of the word "on" and dragging down to the last line.
  76. -- Once you have it all selected (it should have a black background)
  77. -- hold the command key and type a "C" to copy the text to the clipboard.
  78. -- If you hear a beep you don't have anything selected! Try again.
  79. -- Leave this script by pressing the "Cancel" button.
  80. -- You will be taken to the script of your "Home" stack.
  81. -- NOTE: The name at the top of this window tells you which script
  82. -- you are in!
  83. -- Once in the "Home" stack script, click at the very top of the screen
  84. -- and hold the command key and type a "V" to paste the clipboard text
  85. -- into the script.
  86. -- NOTE: If you already have an idle routine in your "Home" stack paste
  87. -- the clipboard in front of the line which has a "pass idle" phrase.
  88. -- Delete the bottom "pass idle" line. There should be only 1 such line.
  89. -- If there is no "pass idle" line then paste
  90. -- in front of the "end idle" phrase.
  91. -- Press the "OK" button and you will be taken to the next step
  92. -- of the installation procedure.
  93.  
  94. on idle
  95.   -- The follwing code belongs to HyperAlarm
  96.   global Alarm
  97.   if Alarm is not empty then
  98.     get the long time
  99.     convert it to seconds
  100.     if it >= Alarm then
  101.       play harpsichord "eq c d g3h gq d4 e c"
  102.       put -1 into Alarm
  103.       push card
  104.       go to stack "HyperAlarms 1.1"
  105.       find Alarm in field AlarmTime
  106.     end if
  107.   end if
  108.   -- end of HyperAlarm code
  109.   pass idle
  110. end idle
  111.  
  112.  
  113.